home *** CD-ROM | disk | FTP | other *** search
/ Imagine! / Imagine (Wayzata Technology) (1995).iso / pc / macfiles / thepearl / 00113_Script_113 < prev    next >
Text File  |  1995-08-24  |  1KB  |  45 lines
  1. --bucketRandom script
  2. on mouseDown
  3.   puppetSprite 25, true
  4.   set the castNum of sprite 25 = the number of cast 115 + random(8)
  5.   if random = 115 then
  6.     set the castNum of sprite 25 = 115
  7.   else
  8.     if random = 116 then
  9.       set the castNum of sprite 25 = 116
  10.     else
  11.       if random = 117 then
  12.         set the castNum of sprite 25 = 117
  13.       else
  14.         if random = 118 then
  15.           set the castNum of sprite 25 = 118
  16.         else
  17.           if random = 119 then
  18.             set the castNum of sprite 25 = 119
  19.           else
  20.             if random = 120 then 
  21.               set the castNum of sprite 25 = 120
  22.               if random = 121 then
  23.                 set the castNum of sprite 25 = 121
  24.                 if random = 122 then
  25.                   set the castNum of sprite 25 = 122
  26.                   if random = 123 then
  27.                     set the castNum of sprite 25 = 123
  28.                   end if
  29.                 end if
  30.               end if
  31.             end if
  32.           end if
  33.         end if
  34.       end if
  35.     end if
  36.   end if
  37. end if
  38. updateStage
  39. end
  40. on mouseUp
  41. puppetSprite 25, true
  42. set the castNum of sprite 25 = 114
  43. updateStage
  44. end mouseUp
  45.